home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
F1 Licenseware
/
F1 Licenseware - Volume 1.iso
/
disks
/
049b.dms
/
049b.adf
/
MORE_SOURCE_CODE
/
permanent_iff.amos
/
permanent_iff.amosSourceCode
Wrap
AMOS Source Code
|
1992-02-26
|
694b
|
36 lines
'
' How to save IFF animations with your program.
'
' By Edmund Clay
' June 94
'
'
' When the program has run, it will save WITH the animation.
' But you must also include the value of L in your program.
' Find out what it is from direct mode, then include the line
'
' L=(Whatever it was)
'
'-------------------------------------------------------------
'
' Load an animation
'
Open In 1,"amospro_tutorial:iff_anim/amos.anim"
L=Frame Load(1 To 10,1000)
Close
'
' This is the trick; convert to a permanent bank.
'
Doke Start(10)-12,1
'
'Play the animation
'
Do
P=Frame Play(10,1,0)
Double Buffer
For X=2 To L-1
P=Frame Play(P,1)
Screen Swap
Wait Vbl : Wait Vbl : Wait Vbl
Next
Loop